'BWSPOOL "START" & vbcrlf
Dim i
For i = 0 To 99 Step 1
'BWSPOOL i & vbcrlf
SETVAL "array1("&i&")=" & GETVAL("init")
SETVAL "array2("&i&")=" & GETVAL("init")
SETVAL "array3("&i&")=" & GETVAL("init")
SETVAL "array4("&i&")=" & GETVAL("init")

Next
SETVAL "SQLSTATE=CLEAR_TABLE"
'BWSPOOL "END" & vbcrlf
